home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / ORGANIZE.DMS / in.adf / Install Organiser < prev    next >
Encoding:
Text File  |  1995-04-27  |  48.5 KB  |  1,951 lines
  1. ; $VER: Digita Organiser Installer Script 7/4/95 
  2. ; By Mark Jackson
  3. ; English Language
  4. ;
  5. ; Works for Full version
  6. ; This section contains the Text strings for translation and
  7. ; appending to the code
  8. ;
  9. ; Copyright (C) Digita International
  10.  
  11. ;------------------------------------------------------
  12. ; ### Variable declarations
  13. (set #ProgName "Organiser")
  14. (set #NumberInstallDisks 1)
  15. (set #InstallDisk "OrganiserInstall")
  16. (set #NumNewDisks 2)
  17. (set #MainDisk "Organiser")
  18. (set #FilesDisk "OrganiserExtras")
  19. (set #RamTempFile "RAM:OrgTemp")
  20. (set #RamUtils "RAM:OrgUtils")
  21. (set #HDSpaceNeededBytes (* (* 1 1024) 1024)) ;1MB free
  22. (set #ToolDest (cat #MainDisk ":Organiser"))
  23. (set #DriverDest "DEVS:Printers")
  24. (set #ThemeDefaultTool "Organiser")
  25. (set #OrgToolDest (cat #MainDisk ":" #ProgName))
  26. (set #HelpTool "HELPFILE")
  27.  
  28. ;------------------------------------------------------
  29. ; ### String declaration
  30. ;// Drawer names
  31. (set #DrawerName "Organiser")
  32. (set #FilesName "Files")
  33. (set #SuppStorageName "Supplements Storage 95")
  34. (set #SupplementsName "Supplements")
  35. (set #ThemesName "Diary Themes 95")
  36. (set #TemplatesName "Templates")
  37. (set #CatalogsName "Catalogs")
  38. (set #FontsName "Fonts")
  39. (set #LibsDefault "Libs")
  40. (set #SamplesName "Sound Samples")
  41.  
  42. ;------------------------------------------------------
  43. ;// Archive Names
  44. (set #ASLArchiveName "asl.lha")
  45. (set #CommoditiesArchiveName "commodities.lha")
  46. (set #AmigaGuideArchiveName "Amigaguide.lha")
  47. (set #DiskfontArchiveName "Diskfont.lha")
  48. (set #ProgArchiveName "Organiser.lha")
  49. (set #CatalogsArchiveName "Catalogs.lha")
  50. (set #SuppStorageArchiveName "Supp_Storage.lha")
  51. (set #SupplementsArchiveName "Supplements.lha")
  52. (set #ThemesArchiveName "Themes.lha")
  53. (set #FilesArchiveName "Files.lha")
  54. (set #TemplatesArchiveName "Templates.lha")
  55. (set #SystemFontsArchiveName "Fonts.lha")
  56. (set #StartupArchiveName "startup.lha")
  57. (set #DevicesArchiveName "Devices.lha")
  58. (set #Env-ArchiveArchiveName "Env-Archive.lha")
  59. (set #HelpArchiveName "Help.lha")
  60. (set #PrinterArchiveName "Printer.lha")
  61. (set #SoundArchiveName "Sound.lha")
  62. (set #HarpArchiveName "Harp.lha")
  63. (set #DrawerInfoArchiveName "DrawerInfo.lha")
  64. (set #ProgramInfoArchiveName "ProgramInfo.lha")
  65. (set #HDInfoArchiveName "HDInfo.lha")
  66. (set #Disk1InfoArchiveName "Disk1Info.lha")
  67. (set #Disk2InfoArchiveName "Disk2Info.lha")
  68. (set #OtherPrefsArchiveName "OtherPrefs.lha")
  69. (set #AddMonitorArchiveName "AddMonitor.lha")
  70.  
  71. ;------------------------------------------------------
  72. ;// File Names
  73. (set #LibsSource (cat #InstallDisk ":libs"))
  74.  
  75. ;------------------------------------------------------
  76. ;// Message strings
  77. (set #BadKick
  78.     (cat #ProgName " requires Workbench 2.04 or above to work correctly.")
  79. )
  80.  
  81. (set #CheckStartup
  82.     (cat "\n\n\nPlease wait...\n\nThe installer is just checking your system.")
  83. )
  84.     
  85. (set #DestChoicePrompt
  86.     (cat "\n\n\nWhere would you like to install " #ProgName "?")
  87. )
  88.  
  89. (set #FloppyChoiceMsg
  90.     (cat "On floppy disks")
  91. )
  92.  
  93. (set #HardDiskChoiceMsg
  94.     (cat "On a hard disk")
  95. )
  96.  
  97. (set #DestChoiceHelp
  98.     (cat "\nSelect the radio button \"On a hard disk\" to "
  99.         "install " #ProgName " onto your hard disk.\n\n"
  100.         "Select the radio button \"On floppy disks\" to "
  101.         "install " #ProgName " onto a set of backup disks.\n\n\n"
  102.     )
  103. )
  104.  
  105. (set #HardDiskDestChoiceMsg
  106.     (cat "Where do you want to install the\n" #DrawerName " drawer?")
  107. )
  108.  
  109. (set #HardDiskDestChoiceHelp
  110.     (cat "Select the drawer where you want to install " #ProgName
  111.         ", then click Proceed (a new drawer titled \"" #DrawerName
  112.         "\" will be created and will contain the " #ProgName " program.)"
  113.     )
  114. )
  115.  
  116. (Set #HDBootedFromFloppy
  117.     (cat "It appears you are installing to Hard-disk, but booted from the " #InstallDisk
  118.          " Floppy-disk, this will not work.\n\nPlease reset your Amiga with no floppy-disks "
  119.          "inserted so it boots from the hard-disk, then try installing " #ProgName " again."
  120.     )
  121. )
  122.  
  123.  
  124. (set #NoDiskSpaceMsg1
  125.     (cat "\nThere is insufficient available space on your hard disk to install "
  126.         #ProgName ". You will need a minimum of "
  127.     )
  128. )
  129.  
  130. (set #NoDiskSpaceMsg2
  131.     (cat "MB of free disk space.\n\nEither click \"Abort Install\" to exit this "
  132.         "installation and delete some files from your hard disk, or click \"Proceed\" and try a "
  133.         "different partition."
  134.     )
  135. )
  136.  
  137. (set #DrawerExistsMsg
  138.     (cat "\nA drawer titled \"" #DrawerName "\" already exists in "
  139.         "the destination you have chosen.\n\nDo you wish to replace it "
  140.         "or choose a new destination?\n\n"
  141.     )
  142. )
  143.  
  144. (set #DrawerExistsChoice1 "Replace it")
  145.  
  146. (set #DrawerExistsChoice2 "Choose new destination")
  147.  
  148. (set #DrawerExistsHelp
  149.     (cat "\nYou have chosen a destination drawer which already has \""
  150.         #DrawerName "\" installed there.\n\nClick \""
  151.         #DrawerExistsChoice1 "\" to replace the contents with this new version "
  152.         "of " #ProgName ".\nClick \"" #DrawerExistsChoice2 "\" to choose a "
  153.         "new destination drawer.\n\n"
  154.         "If you choose \"" #DrawerExistsChoice1 "\" then please make sure you "
  155.         "have back up copies of any documents you wish to keep."
  156.     )
  157. )
  158.  
  159. (set #InstallChoice1 "Yes - Replace it")
  160.  
  161. (set #InstallChoice2 "No")
  162.  
  163. (set #OldASLLibraryMsg
  164.     (cat "You either do not have an ASL library, or it is the wrong version. "
  165.         #ProgName " requires you have at least version 36 of this "
  166.         "library. Do you want to copy version 38 of the ASL library?"
  167.     )
  168. )
  169.  
  170. (set #OldASLLibraryHelp
  171.     (cat #ProgName " will not work properly unless you have at least version 36 "
  172.         "of the ASL library (Workbench 2.0 or above).\n\n"
  173.         "Choose \"" #InstallChoice1 "\" to copy version 38 of the library "
  174.         "and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
  175.         "ASL library version 38."
  176.     )
  177. )
  178.  
  179. (set #OldCommoditiesLibraryMsg
  180.     (cat "You either do not have an Commodities library, or it is the wrong version. "
  181.         #ProgName " requires you have at least version 37 of this "
  182.         "library. Do you want to copy version 38 of the Commodities library?"
  183.     )
  184. )
  185.  
  186. (set #OldCommoditiesLibraryHelp
  187.     (cat #ProgName " will not work properly unless you have at least version 37 "
  188.         "of the Commodities library (Workbench 2.0 or above).\n\n"
  189.         "Choose \"" #InstallChoice1 "\" to copy version 38 of the library "
  190.         "and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
  191.         "Commodities library version 38."
  192.     )
  193. )
  194.  
  195. (set #OldDiskFontLibraryMsg
  196.     (cat "You either do not have an DiskFont library, or it is the wrong version. "
  197.         #ProgName " requires you have at least version 36 of this "
  198.         "library. Do you want to copy version 38 of the DiskFont library?"
  199.     )
  200. )
  201.  
  202. (set #OldDiskFontLibraryHelp
  203.     (cat #ProgName " will not work properly unless you have at least version 36 "
  204.         "of the DiskFont library (Workbench 2.0 or above).\n\n"
  205.         "Choose \"" #InstallChoice1 "\" to copy version 38 of the library "
  206.         "and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
  207.         "DiskFont library version 38 and quit this installer."
  208.     )
  209. )
  210.  
  211. (set #OldAmigaGuideLibraryMsg
  212.     (cat "You either do not have an AmigaGuide library, or it is the wrong version. "
  213.         #ProgName " requires you have at least version 34.11 of this "
  214.         "library. Do you want to copy version 34.11 of the AmigaGuide library?"
  215.     )
  216. )
  217.  
  218. (set #OldAmigaGuideLibraryHelp
  219.     (cat #ProgName " will not work properly unless you have at least version 34.11 "
  220.         "of the AmigaGuide library.\n\n"
  221.         "Choose \"" #InstallChoice1 "\" to copy version 34.11 of the library "
  222.         "and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
  223.         "AmigaGuide library version 34.11."
  224.     )
  225. )
  226.  
  227. (set #OldLocaleLibraryMsg
  228.     (cat "You either do not have an Locale library, or it is the wrong version. "
  229.         #ProgName " requires you have at least version 38 of this "
  230.         "library. Do you want to copy version 38 of the Locale library?"
  231.     )
  232. )
  233.  
  234. (set #OldLocaleLibraryHelp
  235.     (cat #ProgName " will not work properly unless you have at least version 38 "
  236.         "of the Locale library (Workbench 2.1 or above).\n\n"
  237.         "Choose \"" #InstallChoice1 "\" to copy version 38 of the library "
  238.         "and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
  239.         "Locale library version 38."
  240.     )
  241. )
  242.  
  243. (set #OldParseLibraryMsg
  244.     (cat "You either do not have an IffParse library, or it is the wrong version. "
  245.         #ProgName " requires you have at least version 33 of this "
  246.         "library. Do you want to copy version 34 of the IffParse library?"
  247.     )
  248. )
  249.  
  250. (set #OldParseLibraryHelp
  251.     (cat #ProgName " will not work properly unless you have at least version 33 "
  252.         "of the IffParse library (Workbench 1.2 or above).\n\n"
  253.         "Choose \"" #InstallChoice1 "\" to copy version 34 of the library "
  254.         "and then install " #ProgName ".\nChoose \"" #InstallChoice2 "\" to not install "
  255.         "IffParse library version 34."
  256.     )
  257. )
  258.  
  259.  
  260. (set #InsertDiskMsg
  261.     (cat "\nPlease insert the disk labelled\n\n")
  262. )
  263.  
  264. (set #diskhelp
  265.     (cat "\nIf you know that the correct disk is in the drive, but you still cannot proceed, "
  266.         "then the name of the disk is incorrect.\n"
  267.         "Ensure that the disk name is not preceded by 'copy_of_', or blank spaces before or after the disk name.\n\n\n" @askdisk-help
  268.     )
  269. )
  270.  
  271. (set #Unpackmsg1 "Unarchiving ")
  272. (set #Unpackmsg2 " to ")
  273. (set #Unpackmsg3 "\n\nPlease wait...")
  274.  
  275. (set #ArchiveAbortMsg1
  276.     (cat "There was a problem when trying to dearchive '")
  277. )
  278.  
  279. (set #ArchiveAbortMsg2
  280.     (cat "'. Please try installing to a different drawer or partition, "
  281.         "or contact Digita Technical Support."
  282.     )
  283. )
  284.  
  285. (set #BlankDiskWarning
  286.     (cat "\nPlease insert a 'blank' disk in the internal\n"
  287.         "disk drive and click \"Proceed\" when ready."
  288.         "\n\nWARNING: This procedure will destroy all information "
  289.         "that may already be on the disk."
  290.     )
  291. )
  292.  
  293.  
  294. (set #FloppyWarningHelp
  295.     (cat     "\nThis procedure uses the 'format' command to "
  296.         "wipe and prepare the disk in the internal disk drive "
  297.         "for use with Organiser."
  298.         "\n\nWrite-protect your master disks before making "
  299.         "backup copies and place the masters in a safe place."
  300.         "\n\nYou should also write-protect your backup disks "
  301.         "before clicking the \"Proceed\" button."
  302.     )
  303. )
  304.  
  305. (set #NotBlankMsg1
  306.     (cat "\nYou have the \"")
  307. )
  308.  
  309. (set #NotBlankMsg2
  310.     (cat "\" disk in your internal disk drive.\n\nPlease "
  311.         "replace this disk with a blank one, before "
  312.         "clicking the \"Proceed\" button."
  313.     )
  314. )
  315.  
  316. (set #FormatWorkingMsg
  317.     (cat "Please wait... Formatting a disk.")
  318. )
  319.  
  320. (set #FormatError
  321.     (cat     "\nAn error occured when trying to format this disk.\n\n"
  322.         "Please ensure that the disk is in the disk drive "
  323.         "before you click the \"Proceed\" button or "
  324.         "put another disk in the drive and try again."
  325.     )
  326. )
  327.  
  328. (set #FormatErrorHelp
  329.     (cat "\nAn error has occured during the formatting of "
  330.         "your disk. This could be for many reasons, but more "
  331.         "commonly, either the disk was corrupt or the drive was "
  332.         "faulty.\nPlease try a different disk, check the drive "
  333.         "and then if the problem persists, contact the Technical "
  334.         "Support Department. Information on how to get Support is "
  335.         "explained in the manual."
  336.     )
  337. )
  338.  
  339. (set #FormatCompleteMsg1
  340.     (cat " created.\n\nPlease take out the disk "
  341.         "in the internal disk drive and label it \""
  342.     )
  343. )
  344.  
  345. (set #FormatCompleteMsg2
  346.     (cat "\", then click the \"Proceed\" button.")
  347. )
  348.  
  349. (set #FormatChoiceprompt
  350.     (cat "\n" #ProgName " needs to format and name two disks during installation. "
  351.         "For more information click 'Help'. Do you wish to:"
  352. ))
  353.  
  354. (set #FormatChoicemsg1 "Slow Format Some Blank Disks")
  355.  
  356. (set #FormatChoicemsg2 "Quick Format Some Blank Disks")
  357.  
  358. (set #FormatChoice-Help
  359.     (cat "This installation utility needs to prepare two disks before installing "
  360.         #ProgName ". Before each disk is created, it will be formatted and named. "
  361.         "\n\nChoose '" #FormatChoicemsg1 "' if you wish to perform a full format, or \nchoose "
  362.         "'" #FormatChoicemsg2 "' to perform a quick format on disks that must have been "
  363.         "previously formatted as Fast File System disks."
  364. ))
  365.  
  366. (set #FloppyFinishedMsg
  367.     (cat "\nAfter clicking the 'Proceed' button, place the \"" #MainDisk
  368.         "\" disk in the internal disk drive and reset your Amiga.\n"
  369.     )
  370. )
  371.  
  372. (set #WorkingMsg (cat "Please wait...\n\nInstalling " #ProgName))
  373.  
  374. (set #CreateDiskPrompt "\n\nDo you want to create the '")
  375.  
  376. (set #ChoiceContinue "Yes")
  377.  
  378. (set #ChoiceSkip "Skip this part")
  379.  
  380. (set #CreateDiskHelp 
  381.     (cat "\nThe '" #MainDisk "' disk contains all of the " 
  382.         #ProgName " program files. \n\nIf you would like to create a "
  383.         #MainDisk " disk then click '" #ChoiceContinue "'.\nIf you do "
  384.         "not want to create this disk the click '" #ChoiceSkip "'."
  385.     )
  386. )
  387.  
  388. (set #CreateFilesDiskHelp 
  389.     (cat "\nThe '" #FilesDisk "' disk contains the Supplements, Diary themes "
  390.         "and Templates. \n\nIf you would like to create a "
  391.         #FilesDisk " disk then click '" #ChoiceContinue "'.\nIf you do "
  392.         "not want to create this disk the click '" #ChoiceSkip "'."
  393.     )
  394. )
  395.  
  396. (set #AskLocaleCmd "Assign >NIL: LOCALE: SYS:Locale")
  397.  
  398. (set #AskLocaleMsg
  399.     (cat "It appears Locale is not set up correctly on your hard-disk, " #ProgName
  400.          " requires this to function properly.\n\n"
  401.          "An assign needs to be added to your `User-Startup' "
  402.          "script:\n\n`" #AskLocaleCmd "'\n\nClick Proceed to continue."
  403.     )
  404. )
  405.  
  406. (set #AskLocaleHelp
  407.     (cat "For the Date and Time functions to work properly, " #ProgName " Requires "
  408.         "Locale to be set up correctly on your hard-disk, part of this involves "
  409.         "adding a LOCALE assign to your User-Startup script.\n\nClick "
  410.         "Proceed if you want the installer to do this automatically, or "
  411.         "click `Skip This Part' to not modify the User-Startup."
  412.     )
  413. )
  414.  
  415.  
  416. (set #PrinterChoicePrompt
  417.     (cat "\n\nDo you wish to install a printer driver?"
  418.     )
  419. )
  420.  
  421. (set #PrinterChoicemsg1 "Yes")
  422. (set #PrinterChoicemsg2 "No")
  423.  
  424. (set #PrinterChoice-Help 
  425.     (cat "To print from Organiser you need to have the correct printer driver selected for your "
  426.          "printer.\nClick the '" #PrinterChoicemsg1 "' button if you wish to install a printer "
  427.          "driver, or the '" #PrinterChoicemsg2 "' button if you do not want to install a printer "
  428.          "driver."
  429.     )
  430. )
  431.  
  432.  
  433.  
  434. ;------------------------------------------------------
  435. ; ### Procedure declarations
  436.  
  437. ;------------------------------------------------------
  438. ;// routine to get disk specified in '#FileSourceDisk'
  439. (procedure @GetDisk
  440.     (
  441.         (askdisk
  442.             (prompt #InsertDiskMsg #FileSourceDisk)
  443.             (help #diskhelp)
  444.             (dest #FileSourceDisk)
  445.         )
  446.     )
  447. )
  448.  
  449. ;------------------------------------------------------
  450. ;// Procedure to decompress file set in '#UnpackFile' to '#UnpackDest'
  451. (procedure @UnpackFiles
  452.     (
  453.       (working #Unpackmsg1 #UnpackFile #Unpackmsg2 #UnpackDest #Unpackmsg3)
  454.         (set ExpandName #UnpackFile)
  455.         (set #ArchiveError 0)
  456.         (set RunLhx
  457.             (cat "OrgUtils:Lhx -I -m e \"" ExpandName "\" \"" #UnpackDest "\"")
  458.         )
  459.         (set #ArchiveError (run RunLhx))
  460.         (if (> #ArchiveError 0)
  461.             (
  462.                 (set #ArchiveAbortMsg (cat #ArchiveAbortMsg1 ExpandName #ArchiveAbortMsg2))
  463.                 (abort #ArchiveAbortMsg)
  464.             )
  465.         )
  466.     )
  467. )
  468.  
  469. ;------------------------------------------------------
  470. ;// Initial Checks
  471. (procedure @InitialChecks
  472.     (
  473.         ;// Check OS version
  474.         (working #CheckStartup)
  475.         
  476.         (set #OSVerNum (getversion))
  477.         (set #OSVersion (/ #OSVerNum 65536))
  478.  
  479.         (if (< #OSVersion 37)
  480.             (abort #BadKick)
  481.         )
  482.  
  483.         ;// Create temp file in ram: for files
  484.         (if (not (exists #RamTempFile))
  485.             (
  486.                 (makedir #RamTempFile (safe))
  487.             )
  488.         )
  489.     (makeassign "OrgTemp" #RamTempFile (safe))
  490.         
  491.         ;// Create temp file in ram: for utils
  492.         (if (not (exists #RamUtils))
  493.             (
  494.                 (makedir #RamUtils (safe))
  495.             )
  496.         )
  497.     (makeassign "OrgUtils" #RamUtils (safe))
  498.  
  499.     ;// Set flag if novice user
  500.     (set #UserNovice 0)
  501.     (if (= @user-level 0)
  502.       (
  503.         (set #UserNovice 1)
  504.       )
  505.     )
  506.       (copyfiles
  507.             (source (cat #InstallDisk ":Utils"))
  508.             (dest "OrgUtils:")
  509.             (all)
  510.             (nogauge)
  511.             (optional "nofail")
  512.         )
  513.       ;// don't copy delete to OrgUtils, as it is used to delete OrgUtils!
  514.       (copyfiles
  515.             (source (cat #InstallDisk ":c"))
  516.             (dest "Ram:")
  517.             (pattern "delete")
  518.             (nogauge)
  519.             (optional "nofail")
  520.         )
  521.       (copyfiles
  522.             (source (cat #InstallDisk ":System"))
  523.             (dest "OrgUtils:")
  524.             (pattern "format")
  525.             (nogauge)
  526.             (optional "nofail")
  527.         )
  528.     )
  529. )
  530.  
  531. ;------------------------------------------------------
  532. ;// Check that ASL library is at least v36 (if not replace)
  533. (procedure @CheckASL
  534.     (
  535.         (set ASLVerNum (getversion (cat #LibsDefault ":ASL.library")))
  536.         (set ASLVer (/ ASLVerNum 65536))
  537.         (if (< ASLVer 36)
  538.             (
  539.         (if (= @user-level 2)
  540.             (
  541.                 (set InstallASLLibrary
  542.                   (askbool
  543.                        (prompt #OldASLLibraryMsg)
  544.                        (choices #InstallChoice1 #InstallChoice2)
  545.                        (help #OldASLLibraryHelp)
  546.                        (default 1)
  547.                   )
  548.                     )
  549.                 (if (= InstallASLLibrary 1)
  550.                      (
  551.                        (@InstallASL)
  552.                   )
  553.                 ) 
  554.               )
  555.               (
  556.                   (@InstallASL)
  557.               )
  558.             ) 
  559.           )
  560.         ) ;endif
  561.     )
  562. )
  563.  
  564. ;------------------------------------------------------
  565. ;// Procedure to install the asl library
  566. (procedure @InstallASL
  567.     (
  568.     (set #UnpackFile (cat #ArchiveLocation #ASLArchiveName))
  569.     (set #UnpackDest #LibsDest)
  570.  
  571.         (if (exists (cat #UnpackDest "asl.library"))
  572.             (delete (cat #UnpackDest "asl.library")
  573.                 (optional "force")
  574.             )
  575.         )
  576.     (@UnpackFiles)
  577.     )
  578. )
  579.  
  580. ;------------------------------------------------------
  581. ;// Check that Locale library is at least v38 (if not replace)
  582. (procedure @CheckLocale
  583.     (
  584.         (set LocaleVerNum (getversion (cat #LibsDefault ":Locale.library")))
  585.         (set LocaleVer (/ LocaleVerNum 65536))
  586.         (if (< LocaleVer 38)
  587.             (
  588.         (if (= @user-level 2)
  589.             (
  590.                 (set InstallLocaleLibrary
  591.                   (askbool
  592.                        (prompt #OldLocaleLibraryMsg)
  593.                        (choices #InstallChoice1 #InstallChoice2)
  594.                        (help #OldLocaleLibraryHelp)
  595.                        (default 1)
  596.                   )
  597.                     )
  598.                 (if (= InstallLocaleLibrary 1)
  599.                      (
  600.                        (@InstallLocale)
  601.                   )
  602.                 ) 
  603.               )
  604.               (
  605.                   (@InstallLocale)
  606.               )
  607.             ) 
  608.           )
  609.         ) ;endif
  610.     )
  611. )
  612.  
  613. ;------------------------------------------------------
  614. ;// Procedure to install the locale library
  615. (procedure @InstallLocale
  616.     (
  617.         (if (exists (cat #LibsDefault ":locale.library"))
  618.             (
  619.                 (delete (cat #LibsDefault ":locale.library")
  620.                     (optional "force")
  621.                 )
  622.             )
  623.         )
  624.  
  625.         (copyfiles
  626.             (source #LibsSource)
  627.             (dest (cat #LibsDefault ":"))
  628.             (pattern "locale.library")
  629.             (optional "force")
  630.         )
  631.     )
  632. )
  633.  
  634.  
  635. ;------------------------------------------------------
  636. ;// Check that IFFParse library is at least v33 (if not replace)
  637. (procedure @CheckParse
  638.     (
  639.         (set ParseVerNum (getversion (cat #LibsDefault ":iffparse.library")))
  640.         (set ParseVer (/ ParseVerNum 65536))
  641.         (if (< ParseVer 33)
  642.             (
  643.         (if (= @user-level 2)
  644.             (
  645.                 (set InstallParseLibrary
  646.                   (askbool
  647.                        (prompt #OldParseLibraryMsg)
  648.                        (choices #InstallChoice1 #InstallChoice2)
  649.                        (help #OldParseLibraryHelp)
  650.                        (default 1)
  651.                   )
  652.                     )
  653.                 (if (= InstallParseLibrary 1)
  654.                      (
  655.                        (@InstallParse)
  656.                   )
  657.                 ) 
  658.               )
  659.               (
  660.                   (@InstallParse)
  661.               )
  662.             ) 
  663.           )
  664.         ) ;endif
  665.     )
  666. )
  667.  
  668. ;------------------------------------------------------
  669. ;// Procedure to install the iffparse library
  670. (procedure @InstallParse
  671.     (
  672.         (if (exists (cat #LibsDefault ":iffparse.library"))
  673.             (
  674.                 (delete (cat #LibsDefault ":iffparse.library")
  675.                     (optional "force")
  676.                 )
  677.             )
  678.         )
  679.  
  680.         (copyfiles
  681.             (source #LibsSource)
  682.             (dest (cat #LibsDefault ":"))
  683.             (pattern "iffparse.library")
  684.             (optional "force")
  685.         )
  686.     )
  687. )
  688.  
  689.  
  690. ;------------------------------------------------------
  691. ;// Check that diskfont library is at least v36 (if not replace)
  692. (procedure @CheckDiskFont
  693.     (
  694.         (set DFVerNum (getversion (cat #LibsDefault ":diskfont.library")))
  695.         (set DFVer (/ DFVerNum 65536))
  696.         (if (< DFVer 36)
  697.             (
  698.         (if (= @user-level 2)
  699.             (
  700.                 (set InstallDiskFontLibrary
  701.                   (askbool
  702.                        (prompt #OldDiskFontLibraryMsg)
  703.                        (choices #InstallChoice1 #InstallChoice2)
  704.                        (help #OldDiskFontLibraryHelp)
  705.                        (default 1)
  706.                   )
  707.                     )
  708.                 (if (= InstallDiskFontLibrary 1)
  709.                      (
  710.                        (@InstallDiskFont)
  711.                   )
  712.                 ) ;end if
  713.               )
  714.               (
  715.                   (@InstallDiskFont)
  716.               )
  717.             ) ;end if
  718.           )
  719.         ) ;endif
  720.     )
  721. )
  722.  
  723. ;------------------------------------------------------
  724. ;// Procedure to install diskfont library
  725. (procedure @InstallDiskFont
  726.     (
  727.     (set #UnpackFile (cat #ArchiveLocation #DiskfontArchiveName))
  728.     (set #UnpackDest #LibsDest)
  729.         (if (exists (cat #UnpackDest "diskfont.library"))
  730.             (delete (cat #UnpackDest "diskfont.library")
  731.                 (optional "force")
  732.             )
  733.         )
  734.     (@UnpackFiles)
  735.   )
  736. )
  737.  
  738. ;------------------------------------------------------
  739. ;** Check that AmigaGuide library is at least version 34.11 (if not replace)
  740. (procedure @CheckAmigaGuide
  741.     (
  742.         (set AGVerNum (getversion (cat #LibsDefault ":amigaguide.library")))
  743.         (set AGVer (/ AGVerNum 65536))
  744.         (set AGRev (- AGVerNum (* AGVer 65536)))
  745.         (if (< AGVer 35)
  746.             (
  747.         (if (< AGRev 11)
  748.             (
  749.                 (if (= @user-level 2)
  750.                     (
  751.                         (set InstallAmigaGuideLibrary
  752.                           (askbool
  753.                                (prompt #OldAmigaGuideLibraryMsg)
  754.                                (choices #InstallChoice1 #InstallChoice2)
  755.                                (help #OldAmigaGuideLibraryHelp)
  756.                                (default 1)
  757.                           )
  758.                             )
  759.                         (if (= InstallAmigaGuideLibrary 1)
  760.                              (
  761.                                (@InstallAmigaGuide)
  762.                           )
  763.                         );end if
  764.                       )
  765.                       (
  766.                           (@InstallAmigaGuide)
  767.                       )
  768.                     ) ;end if (user-level)
  769.                   )
  770.                 ) ;end if (revision) 
  771.           )
  772.         ) ;end if (version)
  773.     )
  774. )
  775.  
  776. ;------------------------------------------------------
  777. ;// Procedure to install amigaguide library
  778. (procedure @InstallAmigaGuide
  779.     (
  780.     (set #UnpackFile (cat #ArchiveLocation #AmigaGuideArchiveName))
  781.     (set #UnpackDest #LibsDest)
  782.         (if (exists (cat #UnpackDest "amigaguide.library"))
  783.             (delete (cat #UnpackDest "amigaguide.library")
  784.                 (optional "force")
  785.             )
  786.         )
  787.     (@UnpackFiles)
  788.   )
  789. )
  790.  
  791. ;------------------------------------------------------
  792. ;// Check that commodities library is at least v37 (if not replace)
  793. (procedure @CheckCommodities
  794.     (
  795.         (set CommoditiesVerNum (getversion (cat #LibsDefault ":commodities.library")))
  796.         (set CommoditiesVer (/ CommoditiesVerNum 65536))
  797.         (if (< CommoditiesVer 37)
  798.             (
  799.         (if (= @user-level 2)
  800.             (
  801.                 (set InstallCommoditiesLibrary
  802.                   (askbool
  803.                        (prompt #OldCommoditiesLibraryMsg)
  804.                        (choices #InstallChoice1 #InstallChoice2)
  805.                        (help #OldCommoditiesLibraryHelp)
  806.                        (default 1)
  807.                   )
  808.                     )
  809.                 (if (= InstallCommoditiesLibrary 1)
  810.                      (
  811.                        (@InstallCommodities)
  812.                   )
  813.                 ) 
  814.               )
  815.               (
  816.                   (@InstallCommodities)
  817.               )
  818.             ) 
  819.           )
  820.         ) ;endif
  821.     )
  822. )
  823.  
  824. ;------------------------------------------------------
  825. ;// Procedure to install the commodities library
  826. (procedure @InstallCommodities
  827.     (
  828.     (set #UnpackFile (cat #ArchiveLocation #CommoditiesArchiveName))
  829.     (set #UnpackDest #LibsDest)
  830.  
  831.         (if (exists (cat #UnpackDest "commodities.library"))
  832.             (delete (cat #UnpackDest "commodities.library")
  833.                 (optional "force")
  834.             )
  835.         )
  836.     (@UnpackFiles)
  837.     )
  838. )
  839.  
  840. ;------------------------------------------------------
  841. ;// Procedure to de-archive screen fonts
  842. (procedure @DearchiveScreenFonts
  843.     (
  844.     (set #UnpackFile (cat #ArchiveLocation #SystemFontsArchiveName))
  845.         (set #UnpackDest #SystemFontsDest)
  846.         (@UnpackFiles)
  847.   )
  848. )
  849.  
  850. ;------------------------------------------------------
  851. ;// Procedure to de-archive Env-Archive files
  852. (procedure @DearchiveEnv-Archive
  853.     (
  854.     (set #UnpackFile (cat #ArchiveLocation #Env-ArchiveArchiveName))
  855.         (set #UnpackDest #Env-ArchiveDest)
  856.         (@UnpackFiles)
  857.   )
  858. )
  859.  
  860. ;------------------------------------------------------
  861. ;// Procedure to de-archive Env files
  862. (procedure @DearchiveEnv
  863.     (
  864.     (set #UnpackFile (cat #ArchiveLocation #Env-ArchiveArchiveName))
  865.         (set #UnpackDest "ENV:")
  866.         (@UnpackFiles)
  867.   )
  868. )
  869.  
  870.  
  871. ;------------------------------------------------------
  872. ;// Install to HD or Floppy ?
  873. (procedure @CheckHDorFloppy
  874.     (
  875.         ;// Floppy or HD ?
  876.         (set #FullPath (expandpath "sys:"))
  877.         (if (= #FullPath (cat #InstallDisk ":"))
  878.             (set #DiskDefault 1)
  879.             (set #DiskDefault 0)
  880.         )
  881.  
  882.  
  883.     ;** set novice user to expert briefly
  884.     (set #UserNovice 0)
  885.     (if (= @user-level 0)
  886.       (
  887.         (user 2)
  888.         (set #UserNovice 1)
  889.       )
  890.     )
  891.       (set #DestinationType
  892.       (askchoice
  893.         (prompt #DestChoicePrompt)
  894.         (choices #HardDiskChoiceMsg
  895.              #FloppyChoiceMsg
  896.         )
  897.         (help #DestChoiceHelp)
  898.         (default #DiskDefault)
  899.       )
  900.     )
  901.     ;** set novice user back to novice
  902.     (if (= #UserNovice 1)
  903.       (user 0)
  904.     )
  905.  
  906.     (if (= #DestinationType 0)
  907.         (set #DestinationType "Hard")
  908.         (set #DestinationType "Floppy")
  909.     )    
  910.     )
  911. )
  912.  
  913. ;------------------------------------------------------
  914. ;// Choose hard disk destination for Organiser drawer
  915. (procedure @ChooseHDDest
  916.     (
  917.         ;** Find default drawer
  918.         (set #DefaultDest (getassign "Work" "d"))
  919.         (if (= #DefaultDest "")
  920.             (
  921.                 (set #DefaultDest (getassign "HD3" "d"))
  922.                 (if (= #DefaultDest "")
  923.                     (
  924.                         (set #DefaultDest (getassign "HD2" "d"))
  925.                         (if (= #DefaultDest "")
  926.                 (
  927.                 (set #DefaultDest (getassign "HD1" "d"))
  928.                 (if (= #DefaultDest "")
  929.                   (
  930.                     (set #DefaultDest (getassign "DH1" "d"))
  931.                     (if (= #DefaultDest "")
  932.                       (
  933.                         (set #DefaultDest (getassign "HD0" "d"))
  934.                         (if (= #DefaultDest "")
  935.                           (
  936.                             (set #DefaultDest "DH0:")
  937.                             (if (= #UserNovice 1)
  938.                               (user 2)
  939.                             )
  940.                           )
  941.                         )
  942.                       )
  943.                     )
  944.                   )
  945.                 )
  946.               )
  947.             )
  948.           )
  949.         )
  950.             )
  951.         )
  952.         ;** Ask for destination
  953.         (set #DestDrawer
  954.             (askdir
  955.                 (prompt #HardDiskDestChoiceMsg)
  956.                 (help #HardDiskDestChoiceHelp)
  957.                 (default #DefaultDest)
  958.             )
  959.         )
  960.     (if (= #UserNovice 1)
  961.       (user 0)
  962.     )
  963.     )
  964. )
  965.  
  966.  
  967. ;------------------------------------------------------
  968. ;// Find HD Destination and check enough space
  969. (procedure @FindHDDest
  970.     (
  971.         (set OrgExists 0)
  972.     (while (= OrgExists 0)
  973.             (
  974.           (@ChooseHDDest)
  975.           (while (< (getdiskspace #DestDrawer) #HDSpaceNeededBytes)
  976.             (
  977.               (if (< (getdiskspace #DestDrawer) #HDSpaceNeededBytes)
  978.                 (
  979.                             (if (= @user-level 0)
  980.                               (
  981.                                 (user 2)
  982.                                 (set #UserNovice 1)
  983.                               )
  984.                             )
  985.                   (message #NoDiskSpaceMsg1 (/ (/ #HDSpaceNeededBytes 1024) 1024) #NoDiskSpaceMsg2)
  986.                   (@ChooseHDDest)
  987.                 )
  988.                  )
  989.             )
  990.             ) ;end while
  991.             (@CheckExistsAlready)
  992.         )
  993.       );end while
  994.     (if (= #UserNovice 1)
  995.       (user 0)
  996.     )
  997.     )
  998. )
  999.  
  1000. ;------------------------------------------------------
  1001. ;// Procedure to check if Organiser exists already in destination
  1002. ;// Replace or choose again if so
  1003. (procedure @CheckExistsAlready
  1004.     (
  1005.     (if (exists (tackon #DestDrawer #DrawerName))
  1006.       (
  1007.         (set ChooseAgainAnswer
  1008.           (askbool
  1009.             (prompt #DrawerExistsMsg)
  1010.             (choices #DrawerExistsChoice1 #DrawerExistsChoice2)
  1011.             (help #DrawerExistsHelp)
  1012.             (default 1)
  1013.           )
  1014.         )
  1015.         (if (= ChooseAgainAnswer 0)
  1016.           (
  1017.             (set OrgExists 0)
  1018.           )
  1019.           (
  1020.             (set OrgExists 1)
  1021.           )
  1022.         )
  1023.       )
  1024.       (;else
  1025.         (set OrgExists 1)
  1026.       )
  1027.     );endif
  1028.     )
  1029. )
  1030.  
  1031. ;------------------------------------------------------
  1032. ;// Create Organiser drawers in chosen destination 
  1033. (procedure @CreateDrawers
  1034.     (
  1035.         (working #WorkingMsg)
  1036.         (set #InsideHDDest (tackon #DestDrawer #DrawerName))
  1037.         ;// Make the Organiser drawer
  1038.         (makedir #InsideHDDest (infos))
  1039.  
  1040.         ;// Make the Supplements Storage drawer
  1041.         (set #HDSuppStorageDest (tackon #InsideHDDest #SuppStorageName))
  1042.         (makedir #HDSuppStorageDest (infos))
  1043.  
  1044.         ;// Make the Supplements drawer
  1045.         (set #HDSupplementsDest (tackon #InsideHDDest #SupplementsName))
  1046.         (makedir #HDSupplementsDest (infos))
  1047.  
  1048.         ;// Make the Files drawer
  1049.         (set #HDFilesDest (tackon #InsideHDDest #FilesName))
  1050.         (makedir #HDFilesDest)
  1051.  
  1052.         ;// Make the Themes drawer
  1053.         (set #HDThemesDest (tackon #InsideHDDest #ThemesName))
  1054.         (makedir #HDThemesDest (infos))
  1055.  
  1056.         ;// Make the Samples drawer
  1057.         (set #HDSamplesDest (tackon #InsideHDDest #SamplesName))
  1058.         (makedir #HDSamplesDest (infos))
  1059.  
  1060.         ;// Make the Templates drawer
  1061.         (set #HDTemplatesDest (tackon #InsideHDDest #TemplatesName))
  1062.         (makedir #HDTemplatesDest (infos))
  1063.  
  1064.     )
  1065. )
  1066.  
  1067. ;------------------------------------------------------
  1068. ;// set up hard drive destinations
  1069. (procedure @SetUpHDProgDests
  1070.     (
  1071.         (working #WorkingMsg)
  1072.         (set #LibsDest (cat #LibsDefault ":"))
  1073.         (set #ProgDest (cat #InsideHDDest "/"))
  1074.         (set #SupplementsDest (cat #HDSupplementsDest "/"))
  1075.         (set #SuppStorageDest (cat #HDSuppStorageDest "/"))
  1076.         (set #FilesDest (cat #HDFilesDest "/"))
  1077.         (set #ThemesDest (cat #HDThemesDest "/"))
  1078.         (set #TemplatesDest (cat #HDTemplatesDest "/"))
  1079.         (set #SystemFontsDest "Fonts:")
  1080.         (set #Env-ArchiveDest "Sys:Prefs/Env-Archive/")
  1081.         (set #SamplesDest (cat #HDSamplesDest "/"))
  1082.         (set #HelpDest (cat #HDFilesDest "/"))
  1083.     )
  1084. )
  1085.  
  1086. ;------------------------------------------------------
  1087. ;// set up floppy disk destinations
  1088. (procedure @SetUpFloppyProgDests
  1089.     (
  1090.         (set #ProgDest (cat #MainDisk ":"))
  1091.         (set #SupplementsDest (cat #MainDisk ":" #SupplementsName "/"))
  1092.         (set #SuppStorageDest (cat #FilesDisk ":" #SuppStorageName "/"))
  1093.         (set #ThemesDest (cat #FilesDisk ":" #ThemesName "/"))
  1094.         (set #TemplatesDest (cat #FilesDisk ":" #TemplatesName "/"))
  1095.         (set #FilesDest (cat #MainDisk ":" #FilesName "/"))
  1096.         (set #SystemFontsDest (cat #MainDisk ":" #FontsName "/"))
  1097.         (set #Env-ArchiveDest (cat #MainDisk ":Prefs/Env-Archive/"))
  1098.         (set #LibsDest (cat #MainDisk ":Libs/"))
  1099.         (set #SamplesDest (cat #MainDisk ":" #SamplesName "/"))
  1100.         (set #HelpDest (cat #FilesDisk ":Help/"))
  1101.     )
  1102. )
  1103.  
  1104. ;------------------------------------------------------
  1105. ;// Check to make sure that none of the Organiser disks
  1106. ;// are in the internal drive before creating blank ones.
  1107. (procedure @CheckDisks
  1108.     (
  1109.         (set #NumberDisks (+ #NumberInstallDisks #NumNewDisks))
  1110.         (set #DiskBlank 1)
  1111.         (set n 0)
  1112.         (until (OR (= n #NumberDisks) (= #DiskBlank 0))
  1113.             (
  1114.                 (set #CheckMainDisk
  1115.                     (select n
  1116.                         #InstallDisk
  1117.                         #MainDisk
  1118.                         #FilesDisk
  1119.                     )
  1120.                 )
  1121.                 (if (= (getassign "df0" "d") (cat #CheckMainDisk ":"))
  1122.                     (    ;disk is not blank
  1123.                         (set #DiskBlank 0)
  1124.                     )
  1125.                 )
  1126.                 (set n (+ n 1))
  1127.             )
  1128.         )
  1129.     )
  1130. )
  1131.  
  1132.  
  1133. ;------------------------------------------------------
  1134. ;// Format and name the disk given in #FormatMainDisk
  1135. (procedure @FormatDisk
  1136.     (
  1137.         (working #FormatWorkingMsg)
  1138.         ;*** USE 2.0 FORMAT COMMAND ***
  1139.         (if (= #FormatChoice 0)
  1140.             (
  1141.                 (set #FormatCheck
  1142.                     (run ("OrgUtils:Format drive=df0: name=%s FFS NOICONS" #FormatMainDisk))
  1143.                 )
  1144.             )
  1145.             (
  1146.                 (set #FormatCheck
  1147.                     (run ("OrgUtils:Format drive=df0: name=%s FFS QUICK NOICONS" #FormatMainDisk))
  1148.                 )
  1149.             )
  1150.         )
  1151.     (if (OR (> #FormatCheck 0) (< #FormatCheck 0))
  1152.         (set #NoError 1)
  1153.            (set #NoError 0)
  1154.     )
  1155.         (if (= #NoError 0)
  1156.             (
  1157.                 (if (= #FormatMainDisk #MainDisk)
  1158.                     (run "OrgUtils:Install2.1 df0:")
  1159.                 )
  1160.             )
  1161.         ); endif
  1162.     )
  1163. )
  1164.  
  1165. ;------------------------------------------------------
  1166. ;// routine to check disk in drive ok and format it if so
  1167. (procedure @Makedisk
  1168.     (
  1169.     (set #NoError 1)
  1170.     (while (= #NoError 1)
  1171.         (
  1172.             ;** Make sure that the install disks are not in the drive
  1173.             (run "OrgUtils:Wait 6")  ;Wait a bit for disk access to stop
  1174.             (@CheckDisks)
  1175.             (if (= #DiskBlank 0)
  1176.               (
  1177.                 (message #NotBlankMsg1 #CheckMainDisk #NotBlankMsg2)
  1178.               )
  1179.               (
  1180.                 (set #NoError 1)
  1181.                 (@FormatDisk)
  1182.                 (if (= #NoError 1)
  1183.                   (
  1184.                     (message #FormatError (help #FormatErrorHelp))
  1185.                   )
  1186.                 );endif
  1187.               )
  1188.             );endif
  1189.         )
  1190.     );endwhile
  1191.   )
  1192. )
  1193.  
  1194. ;------------------------------------------------------
  1195. ;// Create floppy disk 1
  1196. (procedure @CreateDisk1
  1197.     (
  1198.     ;// Copy system files from install disk to Ram...
  1199.     (copyfiles
  1200.         (source (cat #InstallDisk ":Libs"))
  1201.         (dest "RAM:Libs")
  1202.         (all)
  1203.         (optional "force")
  1204.     )
  1205.     (copyfiles
  1206.         (source (cat #InstallDisk ":c"))
  1207.         (dest "RAM:c")
  1208.         (all)
  1209.         (optional "force")
  1210.     )
  1211.     (copyfiles
  1212.         (source (cat #InstallDisk ":l"))
  1213.         (dest "RAM:l")
  1214.         (all)
  1215.         (optional "force")
  1216.     )
  1217.     (copyfiles
  1218.         (source (cat #InstallDisk ":system"))
  1219.         (dest "RAM:system")
  1220.         (all)
  1221.         (optional "force")
  1222.    )
  1223.     (copyfiles
  1224.       (source (cat #InstallDisk ":Devs"))
  1225.       (dest "RAM:Devs")
  1226.       (all)
  1227.       (optional "force")
  1228.     )
  1229.     (copyfiles                                                                    
  1230.       (source (cat #InstallDisk ":prefs"))
  1231.       (dest "RAM:prefs")
  1232.       (all)
  1233.       (optional "force")
  1234.     )
  1235.     (copyfiles                                                                    
  1236.       (source (cat #InstallDisk ":s"))
  1237.       (dest "RAM:s")
  1238.       (all)
  1239.       (optional "force")
  1240.     )
  1241.  
  1242.  
  1243.         (copyfiles                                                            
  1244.           (source (cat #InstallName ":Locale"))
  1245.           (dest "RAM:Locale")
  1246.           (all)
  1247.           (optional "force")
  1248.         )
  1249.  
  1250.  
  1251.     ;// Now create the first disk
  1252.       (message #BlankDiskWarning
  1253.           (help #FloppyWarningHelp)
  1254.       )
  1255.       (set #FormatMainDisk #MainDisk)
  1256.       (@Makedisk)
  1257.  
  1258.     (message (cat "\n" #MainDisk #FormatCompleteMsg1 #MainDisk #FormatCompleteMsg2))
  1259.  
  1260.  
  1261.     ;// Now copy all files from RAM to disk 1, then delete them.
  1262.     (set #FileSourceDisk #MainDisk)
  1263.     (@GetDisk)
  1264.  
  1265.     (makedir (cat #MainDisk ":Prefs") (infos))                ; make Prefs drawer
  1266.     
  1267.     (copyfiles
  1268.         (source "RAM:Libs")
  1269.         (dest (cat #MainDisk ":Libs"))
  1270.         (all)
  1271.         (optional "force")
  1272.     )
  1273.         (run "ram:delete RAM:Libs all" (safe))
  1274.     
  1275.     (copyfiles
  1276.         (source "RAM:l")
  1277.         (dest (cat #MainDisk ":l"))
  1278.         (all)
  1279.         (optional "force")
  1280.     )
  1281.         (run "ram:delete RAM:l all" (safe))
  1282.  
  1283.     (copyfiles
  1284.         (source "RAM:s")
  1285.         (dest (cat #MainDisk ":s"))
  1286.         (all)
  1287.         (optional "force")
  1288.     )
  1289.         (run "ram:delete RAM:s all" (safe))
  1290.  
  1291.  
  1292. (complete 20)
  1293.  
  1294.     (copyfiles
  1295.         (source "RAM:c")
  1296.         (dest (cat #MainDisk ":c"))
  1297.         (all)
  1298.         (optional "force")
  1299.     )
  1300.         (run "ram:delete RAM:c all" (safe))
  1301.  
  1302.     (copyfiles
  1303.         (source "RAM:system")
  1304.         (dest (cat #MainDisk ":system"))
  1305.         (all)
  1306.         (optional "force")
  1307.     )
  1308.         (run "ram:delete RAM:system all" (safe))
  1309.  
  1310.     (copyfiles
  1311.       (source "RAM:Devs")                                        
  1312.       (dest (cat #MainDisk ":Devs"))
  1313.       (all)
  1314.       (optional "force")
  1315.     )
  1316.         (run "ram:delete RAM:Devs all" (safe))
  1317.  
  1318.     (copyfiles                                                            
  1319.       (source "RAM:prefs")
  1320.       (dest (cat #MainDisk ":prefs"))
  1321.       (all)
  1322.       (optional "force")
  1323.     )
  1324.         (run "ram:delete RAM:prefs all" (safe))
  1325.  
  1326.     (copyfiles                                                            
  1327.       (source "RAM:Locale")
  1328.       (dest (cat #MainDisk ":Locale"))
  1329.       (all)
  1330.       (optional "force")
  1331.     )
  1332.         (run "ram:delete RAM:Locale all" (safe))
  1333.  
  1334. (complete 30)
  1335.  
  1336.         ;## Now install other devices
  1337.         ;## DISK SWAP to get rest of archives
  1338.     (set #FileSourceDisk #InstallDisk)
  1339.     (@GetDisk)
  1340.  
  1341.     ;// ... some archives...
  1342.     (copyfiles
  1343.             (source (cat #InstallDisk ":Archive"))
  1344.             (dest "OrgTemp:")
  1345.             (pattern ("~(Supp_Storage.lha|Themes.lha|Organiser.lha|Templates.lha|Help.lha|Disk1Info.lha|Disk2Info.lha|HDInfo.lha|ProgramInfo.lha|DrawerInfo.lha)"))
  1346.             (optional "force")
  1347.           (safe)
  1348.     )
  1349.  
  1350.     (copyfiles
  1351.             (source (cat #InstallDisk ":S"))
  1352.             (dest "OrgTemp:")
  1353.             (pattern ("(startup-sequence)"))
  1354.             (optional "force")
  1355.           (safe)
  1356.     )
  1357.  
  1358.     
  1359.  
  1360.         ;## DISK SWAP back again to dearchive to disk
  1361.     (set #FileSourceDisk #MainDisk)
  1362.     (@GetDisk)
  1363.    
  1364.     (makedir (cat #MainDisk ":" #SupplementsName) (infos))        ; make Supplements drawer
  1365.     (makedir (cat #MainDisk ":WBStartup") (infos))                ; make WBStartup drawer
  1366.     (makedir (cat #MainDisk ":" #SamplesName) (infos))            ; make Samples drawer
  1367.  
  1368.  
  1369.  
  1370.     (set #UnpackFile (cat #ArchiveLocation #DevicesArchiveName))
  1371.     (set #UnpackDest (cat #MainDisk ":Devs/"))
  1372.     (@UnpackFiles)
  1373.         (run (cat "ram:delete " #ArchiveLocation #DevicesArchiveName) (safe))
  1374.  
  1375.  
  1376. (complete 40)
  1377.  
  1378.  
  1379.         (@DearchiveScreenFonts)
  1380.         (run (cat "ram:delete " #ArchiveLocation #SystemFontsArchiveName) (safe))
  1381.  
  1382.         (@DearchiveEnv-Archive)
  1383.         (@DearchiveEnv)
  1384.         (run (cat "ram:delete " #ArchiveLocation #Env-ArchiveArchiveName) (safe))
  1385.  
  1386.         (set #UnpackFile (cat #ArchiveLocation #OtherPrefsArchiveName))
  1387.         (set #UnpackDest (cat #MainDisk ":Prefs/Env-Archive/Sys/"))
  1388.         (@UnpackFiles)
  1389.             (run (cat "ram:delete " #ArchiveLocation #OtherPrefsArchiveName) (safe))
  1390.  
  1391.  
  1392.         (set #UnpackFile (cat #ArchiveLocation #AddMonitorArchiveName))
  1393.         (set #UnpackDest (cat #MainDisk ":System/"))
  1394.         (@UnpackFiles)
  1395.             (run (cat "ram:delete " #ArchiveLocation #AddMonitorArchiveName) (safe))
  1396.  
  1397.  
  1398.  
  1399.         (@InstallASL)
  1400.         (run (cat "ram:delete " #ArchiveLocation #ASLArchiveName) (safe))
  1401.  
  1402.         (@InstallCommodities)
  1403.         (run (cat "ram:delete " #ArchiveLocation #CommoditiesArchiveName) (safe))
  1404.  
  1405.         (@InstallAmigaGuide)
  1406.         (run (cat "ram:delete " #ArchiveLocation #AmigaGuideArchiveName) (safe))
  1407.  
  1408.         (@InstallDiskfont)
  1409.         (run (cat "ram:delete " #ArchiveLocation #DiskfontArchiveName) (safe))
  1410.  
  1411.  
  1412. (complete 50)
  1413.  
  1414.         (@InstallFiles)
  1415.         (run (cat "ram:delete " #ArchiveLocation #FilesArchiveName) (safe))
  1416.  
  1417.         (@InstallSupplements)
  1418.         (run (cat "ram:delete " #ArchiveLocation #SupplementsArchiveName) (safe))
  1419.     
  1420.         (@InstallHarp)
  1421.         (run (cat "ram:delete " #ArchiveLocation #HarpArchiveName) (safe))
  1422.  
  1423.         (set #UnpackFile (cat #ArchiveLocation #PrinterArchiveName))
  1424.         (set #UnpackDest (cat #MainDisk ":Prefs/"))
  1425.         (@UnpackFiles)
  1426.             (run (cat "ram:delete " #ArchiveLocation #PrinterArchiveName) (safe))
  1427.  
  1428.         (set #UnpackFile (cat #ArchiveLocation #SoundArchiveName))
  1429.         (set #UnpackDest (cat #MainDisk ":Prefs/"))
  1430.         (@UnpackFiles)
  1431.             (run (cat "ram:delete " #ArchiveLocation #SoundArchiveName) (safe))
  1432.  
  1433.  
  1434.         ;## DISK SWAP to get rest of archives
  1435.     (set #FileSourceDisk #InstallDisk)
  1436.     (@GetDisk)
  1437.  
  1438.     ;// ... some archives...
  1439.     (copyfiles
  1440.             (source (cat #InstallDisk ":Archive"))
  1441.             (dest "OrgTemp:")
  1442.             (pattern ("(Organiser.lha|Disk1Info.lha|ProgramInfo.lha)"))
  1443.             (optional "force")
  1444.           (safe)
  1445.         )
  1446.  
  1447. (complete 60)
  1448.     
  1449.  
  1450.         ;## DISK SWAP back again to dearchive to disk
  1451.     (set #FileSourceDisk #MainDisk)
  1452.     (@GetDisk)
  1453.  
  1454.         (@InstallProg)
  1455.         (run (cat "ram:delete " #ArchiveLocation #ProgArchiveName) (safe))
  1456.  
  1457.     (set #UnpackFile (cat #ArchiveLocation #Disk1InfoArchiveName))
  1458.     (set #UnpackDest (cat #MainDisk ":"))
  1459.     (@UnpackFiles)
  1460.         (run (cat "ram:delete " #ArchiveLocation #Disk1InfoArchiveName) (safe))
  1461.  
  1462.     (set #UnpackFile (cat #ArchiveLocation #ProgramInfoArchiveName))
  1463.     (set #UnpackDest (cat #MainDisk ":"))
  1464.     (@UnpackFiles)
  1465.         (run (cat "ram:delete " #ArchiveLocation #ProgramInfoArchiveName) (safe))
  1466.  
  1467.         (tooltype
  1468.             (dest #OrgToolDest)
  1469.             (settooltype #HelpTool "OrganiserExtras:Help/Organiser.guide")
  1470.         )
  1471.  
  1472.     )
  1473. )
  1474.  
  1475. ;------------------------------------------------------
  1476. ;// Create floppy disk 2
  1477. (procedure @CreateDisk2
  1478.  
  1479.  
  1480.     (
  1481.         (set #FileSourceDisk #InstallDisk)
  1482.         (@GetDisk)
  1483.         (copyfiles
  1484.                 (source (cat #InstallDisk ":Archive"))
  1485.                 (dest "OrgTemp:")
  1486.                 (pattern ("(Supp_Storage.lha|Themes.lha|Templates.lha|Help.lha|Disk2Info.lha)"))
  1487.                 (optional "force")
  1488.               (safe)
  1489.         )
  1490.         
  1491.         ;// Now create the second disk
  1492.     (message #BlankDiskWarning
  1493.         (help #FloppyWarningHelp)
  1494.     )
  1495.  
  1496. (complete 70)
  1497.  
  1498.       (set #FormatMainDisk #FilesDisk)
  1499.       (@Makedisk)
  1500.  
  1501.     (message (cat "\n" #FilesDisk #FormatCompleteMsg1 #FilesDisk #FormatCompleteMsg2))
  1502.  
  1503.     (set #FileSourceDisk #FilesDisk)
  1504.     (@GetDisk)
  1505.  
  1506.  
  1507.         ;// Create the drawers with icons.
  1508.     (makedir (cat #FilesDisk ":" #SuppStorageName) (infos))        ; make Supplements Storage drawer
  1509.     (makedir (cat #FilesDisk ":" #ThemesName) (infos))            ; make Themed diaries drawer
  1510.     (makedir (cat #FilesDisk ":" #TemplatesName) (infos))        ; make Templates drawer
  1511.     (makedir (cat #FilesDisk ":Help"))                            ; make Help drawer
  1512.  
  1513.  
  1514.  
  1515.     ;// Now copy all files from RAM to disk 2, then delete them.
  1516.     (set #FileSourceDisk #FilesDisk)
  1517.     (@GetDisk)
  1518.  
  1519.         (@InstallSuppStorage)
  1520.         (run (cat "ram:delete " #ArchiveLocation #SuppStorageArchiveName) (safe))
  1521.  
  1522. (complete 80)
  1523.  
  1524.  
  1525.         (@InstallHelp)
  1526.         (run (cat "ram:delete " #ArchiveLocation #HelpArchiveName) (safe))
  1527.  
  1528.         (@InstallThemes)
  1529.         (run (cat "ram:delete " #ArchiveLocation #ThemesArchiveName) (safe))
  1530.  
  1531.         (@InstallTemplates)
  1532.         (run (cat "ram:delete " #ArchiveLocation #TemplatesArchiveName) (safe))
  1533.  
  1534.     (set #UnpackFile (cat #ArchiveLocation #Disk2InfoArchiveName))
  1535.     (set #UnpackDest (cat #FilesDisk ":"))
  1536.     (@UnpackFiles)
  1537.         (run (cat "ram:delete " #ArchiveLocation #Disk2InfoArchiveName) (safe))
  1538.  
  1539.     )
  1540. )
  1541.  
  1542. ;------------------------------------------------------
  1543. ;// Install program files
  1544. (procedure @InstallProg
  1545.     (
  1546.       (working #WorkingMsg)
  1547.     (set #UnpackFile (cat #ArchiveLocation #ProgArchiveName))    
  1548.     (set #UnpackDest #ProgDest)
  1549.     (@UnpackFiles)
  1550.   )
  1551. )
  1552.  
  1553. ;------------------------------------------------------
  1554. ;// Install Help files
  1555. (procedure @InstallHelp
  1556.     (
  1557.       (working #WorkingMsg)
  1558.     (set #UnpackFile (cat #ArchiveLocation #HelpArchiveName))    
  1559.     (set #UnpackDest #HelpDest)
  1560.     (@UnpackFiles)
  1561.   )
  1562. )
  1563.  
  1564. ;------------------------------------------------------
  1565. ;// Install Supplements Storage
  1566. (procedure @InstallSuppStorage
  1567.     (
  1568.         (working #WorkingMsg)
  1569.     (set #UnpackFile (cat #ArchiveLocation #SuppStorageArchiveName))    
  1570.     (set #UnpackDest #SuppStorageDest)
  1571.     (@UnpackFiles)
  1572.     )
  1573. )
  1574.  
  1575. ;------------------------------------------------------
  1576. ;// Install Themes
  1577. (procedure @InstallThemes
  1578.     (
  1579.         (working #WorkingMsg)
  1580.     (set #UnpackFile (cat #ArchiveLocation #ThemesArchiveName))    
  1581.     (set #UnpackDest #ThemesDest)
  1582.     (@UnpackFiles)
  1583.     )
  1584. )
  1585.  
  1586. ;------------------------------------------------------
  1587. ;// Install Templates
  1588. (procedure @InstallTemplates
  1589.     (
  1590.         (working #WorkingMsg)
  1591.     (set #UnpackFile (cat #ArchiveLocation #TemplatesArchiveName))    
  1592.     (set #UnpackDest #TemplatesDest)
  1593.     (@UnpackFiles)
  1594.     )
  1595. )
  1596.  
  1597.  
  1598. ;------------------------------------------------------
  1599. ;// Install Files
  1600. (procedure @InstallFiles
  1601.     (
  1602.         (working #WorkingMsg)
  1603.     (set #UnpackFile (cat #ArchiveLocation #FilesArchiveName))    
  1604.     (set #UnpackDest #FilesDest)
  1605.     (@UnpackFiles)
  1606.     )
  1607. )
  1608.  
  1609. ;------------------------------------------------------
  1610. ;// Install Supplements
  1611. (procedure @InstallSupplements
  1612.     (
  1613.         (working #WorkingMsg)
  1614.     (set #UnpackFile (cat #ArchiveLocation #SupplementsArchiveName))    
  1615.     (set #UnpackDest #SupplementsDest)
  1616.     (@UnpackFiles)
  1617.     )
  1618. )
  1619.  
  1620. ;------------------------------------------------------
  1621. ;// Install Harp sample
  1622. (procedure @InstallHarp
  1623.     (
  1624.         (working #WorkingMsg)
  1625.     (set #UnpackFile (cat #ArchiveLocation #HarpArchiveName))    
  1626.     (set #UnpackDest #SamplesDest)
  1627.     (@UnpackFiles)
  1628.     )
  1629. )
  1630.  
  1631.  
  1632. ;------------------------------------------------------
  1633. ;// Routine to install printer and fonts
  1634. (procedure @AddNewPrinter
  1635.     (
  1636.     (set #FileSourceDisk #InstallDisk)
  1637.     (@GetDisk)
  1638.  
  1639.     ;// Delete all in OrgTemp: first...
  1640.         (run (cat "ram:delete OrgTemp:#?" ) (safe))
  1641.     (set #ChosenDriver "Generic")
  1642.     (set #DriverSource (cat #InstallDisk ":Drivers"))
  1643.         (if (= #DestinationType "Floppy")
  1644.         (
  1645.             (set #DriverDest (cat #MainDisk ":Devs/Printers"))
  1646.           )
  1647.           (
  1648.             (set #DriverDest "DEVS:Printers")
  1649.                 (set #CheckGeneric (cat #DriverDest "/" #ChosenDriver))
  1650.                 (if (exists #CheckGeneric)
  1651.                   (
  1652.                     (protect #CheckGeneric "+r+w+e+d")
  1653.                   )
  1654.                 )
  1655.           )
  1656.         )
  1657.     
  1658.     ;// Select printer (or driver) from list...
  1659.     (working #WorkingMsg)
  1660.     (set #SelectPrt
  1661.       (cat "OrgUtils:select OrgUtils:OrgPrinterList")
  1662.     )
  1663.     (run #SelectPrt (safe))
  1664.     (set #ChosenDriver (getenv "wwDriver"))
  1665.     (working #WorkingMsg)
  1666.     
  1667.     ;// driver chosen so copy it to ram...
  1668.     (copyfiles                                                
  1669.       (source #DriverSource)
  1670.       (dest #RamTempFile)
  1671.       (pattern #ChosenDriver)
  1672.       (optional "force")
  1673.       (nogauge)
  1674.     )
  1675.  
  1676.     ;// Now decompress Driver 'ChosenDriver' to destination '#RamTempFile'...
  1677.     (set #UnpackFile (tackon #RamTempFile #ChosenDriver))    
  1678.     (set #UnpackDest "OrgTemp:")
  1679.     (@UnpackFiles)
  1680.     (delete #UnpackFile)
  1681.  
  1682.     ;// get full uncompressed driver name...
  1683.     (run "c:List " #RamTempFile " LFORMAT %s >ENV:wwDriver")
  1684.     (set Driver (getenv "wwDriver"))
  1685.     (set DriverLen (strlen Driver))
  1686.     (set DriverLen (- DriverLen 1))
  1687.     (set #ChosenDriver
  1688.       (substr Driver 0 DriverLen)
  1689.     )
  1690.     ;// finally, copy driver to driver destination...
  1691.         (if (= #DestinationType "Floppy")
  1692.         (
  1693.             (set #FileSourceDisk #MainDisk)
  1694.             (@GetDisk)
  1695.         )
  1696.     )
  1697.     (copyfiles
  1698.       (source #RamTempFile)
  1699.       (dest #DriverDest)
  1700.       (pattern #ChosenDriver)
  1701.       (optional "force")
  1702.     )
  1703.   )
  1704. )
  1705.  
  1706. ;------------------------------------------------------
  1707. ;// Delete any files from Ram and temporary Ram Drawer
  1708. (procedure @CleanUp
  1709.     (
  1710.     (working #WorkingMsg)
  1711.     (makeassign "OrgTemp" (safe))
  1712.         (if (exists #RamTempFile)
  1713.         (
  1714.                 (set DeleteDrawer (cat "ram:delete " #RamTempFile " all force"))
  1715.                 (Run DeleteDrawer)
  1716.             )
  1717.         )
  1718.     (makeassign "OrgUtils" (safe))
  1719.         (if (exists #RamUtils)
  1720.         (
  1721.                 (set DeleteDrawer (cat "ram:delete " #RamUtils " all force"))
  1722.                 (Run DeleteDrawer)
  1723.             )
  1724.         )
  1725.       (delete "Ram:delete"
  1726.           (optional "force")
  1727.       )
  1728.     )
  1729. )
  1730.  
  1731. ;------------------------------------------------------
  1732. ; ### Main
  1733. (complete 0)
  1734. (welcome)
  1735. (complete 5)
  1736. (@InitialChecks) ;// Copies relevent files to ram also
  1737. (@CheckHDorFloppy)
  1738.  
  1739. (complete 10)
  1740.  
  1741. (if (= #DestinationType "Hard")
  1742.     (
  1743.         ;// HD
  1744.  
  1745.     ; Install to Hard-disk
  1746.     (if (= #FullPath (cat #InstallDisk ":"))
  1747.         (Abort #HDBootedFromFloppy)
  1748.     )
  1749.  
  1750.  
  1751.       (set #ArchiveLocation (cat #InstallDisk ":Archive/"))
  1752.     (set #FileSourceDisk #InstallDisk)
  1753.     (@GetDisk)
  1754.     (@SetUpHDProgDests)
  1755.  
  1756.  
  1757.     ;## if on Hard disk see if there's a Locale:Countries drawer
  1758.  
  1759.        (if (not (exists "Sys:Locale"))
  1760.         (
  1761.             (makedir "Sys:Locale" (infos))
  1762.  
  1763.             (startup #ProgName
  1764.                 (prompt #AskLocaleMsg)
  1765.                 (help #AskLocaleHelp)
  1766.                 (command #AskLocaleCmd)
  1767.             )
  1768.  
  1769.                (run ("Assign LOCALE: SYS:Locale"))        ; Set Assign now
  1770.  
  1771.  
  1772.             (copyfiles                                                            
  1773.                 (source (cat #InstallName ":Locale"))
  1774.                 (dest "Sys:Locale/")
  1775.                 (all)
  1776.                 (optional "force")
  1777.             )
  1778.         )
  1779.     )
  1780.  
  1781.  
  1782.         (@CheckASL)
  1783.         (@CheckCommodities)
  1784.         (@CheckLocale)
  1785.         (@CheckParse)
  1786.         (@CheckDiskFont)
  1787.         (@CheckAmigaGuide)
  1788.  
  1789.  
  1790.         (@FindHDDest)
  1791.         (@CreateDrawers)
  1792.     (@SetUpHDProgDests)
  1793.     (set @default-dest #DestDrawer)
  1794. (complete 20)
  1795.         (@DearchiveScreenFonts)
  1796.         (@DearchiveEnv-Archive)
  1797.         (@DearchiveEnv)
  1798. (complete 30)
  1799.         (@InstallProg)
  1800. (complete 40)
  1801.         (@InstallSupplements)
  1802.  
  1803.         (if (not (exists "Sys:Prefs/Sound"))
  1804.             (
  1805.                   (working #WorkingMsg)
  1806.                 (set #UnpackFile (cat #ArchiveLocation #SoundArchiveName))
  1807.                 (set #UnpackDest "Sys:Prefs/")
  1808.                 (@UnpackFiles)
  1809.             )
  1810.         )
  1811.  
  1812. (complete 50)
  1813.         (@InstallSuppStorage)
  1814. (complete 60)
  1815.         (@InstallThemes)
  1816.  
  1817.         (if (not (exists (cat #SamplesDest "Harp")))
  1818.             (
  1819.                 (@InstallHarp)
  1820.             )
  1821.         )
  1822.  
  1823. (complete 70)
  1824.         (@InstallFiles)
  1825.         (@InstallTemplates)
  1826.         (@InstallHelp)
  1827.  
  1828.  
  1829.     (set #UnpackFile (cat #ArchiveLocation #DrawerInfoArchiveName))
  1830.     (set #UnpackDest (cat #ProgDest "/"))
  1831.     (@UnpackFiles)
  1832.  
  1833.     (set #UnpackFile (cat #ArchiveLocation #HDInfoArchiveName))
  1834.     (set #UnpackDest #ProgDest)
  1835.     (@UnpackFiles)
  1836.  
  1837.     (set #UnpackFile (cat #ArchiveLocation #ProgramInfoArchiveName))
  1838.     (set #UnpackDest #ProgDest)
  1839.     (@UnpackFiles)
  1840.  
  1841.  
  1842.            (
  1843.             ;set default tool type for all Themed Diaries
  1844.             (foreach #ThemesDest "#?"
  1845.                 (
  1846.                     (tooltype
  1847.                         (dest (cat #ThemesDest @each-name))
  1848.                         (setdefaulttool (cat #ProgDest #ThemeDefaultTool))
  1849.                     )
  1850.                 )
  1851.             )
  1852.         )
  1853.  
  1854. (complete 80)
  1855.  
  1856.         
  1857.     )
  1858.     (
  1859.         ;// Floppy
  1860.       (set #ArchiveLocation "OrgTemp:")
  1861.     (@SetUpFloppyProgDests)
  1862.         (if (>= @user-level 2) ;expert only
  1863.             (
  1864.                 (set #FormatChoice
  1865.                     (askchoice
  1866.                         (prompt #FormatChoiceprompt)
  1867.                         (choices #FormatChoicemsg1 #FormatChoicemsg2)
  1868.                         (help #FormatChoice-help)
  1869.                         (default 0)
  1870.                     )
  1871.                 )
  1872.             )
  1873.         )
  1874.     (if (= @user-level 0)
  1875.       (
  1876.         (user 2)
  1877.         (set #UserNovice 1)
  1878.       )
  1879.     )
  1880.         ;// if not novice then check user wants to create disk 1
  1881.         (if (< #UserNovice 1)
  1882.             (
  1883.                 (set #CreateDiskChoice
  1884.                     (askbool
  1885.                         (prompt (cat #CreateDiskPrompt #MainDisk "' disk?"))
  1886.                         (choices #ChoiceContinue #ChoiceSkip)
  1887.                         (help #CreateDiskHelp)
  1888.                         (default 1)
  1889.                     )
  1890.                 )
  1891.             )
  1892.           (set #CreateDiskChoice 1)
  1893.         )
  1894.         (if (= #CreateDiskChoice 1)
  1895.             (@CreateDisk1)
  1896.         )
  1897.  
  1898.         ;// if not novice then check user wants to create disk 2
  1899.         (if (< #UserNovice 1)
  1900.             (
  1901.                 (set #CreateDiskChoice
  1902.                     (askbool
  1903.                         (prompt (cat #CreateDiskPrompt #FilesDisk "' disk?"))
  1904.                         (choices #ChoiceContinue #ChoiceSkip)
  1905.                         (help #CreateFilesDiskHelp)
  1906.                         (default 1)
  1907.                     )
  1908.                 )
  1909.             )
  1910.           (set #CreateDiskChoice 1)
  1911.         )
  1912.         (if (= #CreateDiskChoice 1)
  1913.             (@CreateDisk2)
  1914.         )
  1915.     (if (= @user-level 0)
  1916.       (user 0)
  1917.     )
  1918.     (set @default-dest "")
  1919.     )
  1920. )
  1921.  
  1922. (complete 90)
  1923.  
  1924.     (set #InstallPrinter 1)
  1925.  
  1926.     (if (>= @user-level 1) ; Intermediate or Expert only
  1927.         (
  1928.             (set #InstallPrinter
  1929.                 (askbool
  1930.                     (prompt #PrinterChoicePrompt)
  1931.                     (choices #PrinterChoicemsg1 #PrinterChoicemsg2)
  1932.                     (help #PrinterChoice-help)
  1933.                     (default 0)
  1934.                 )
  1935.             )
  1936.         )
  1937.     )
  1938.  
  1939. (if (= #InstallPrinter 1)
  1940.     (
  1941.         (@AddNewPrinter)
  1942.     )
  1943. )
  1944.  
  1945. (@CleanUp)
  1946. (complete 100)
  1947. (if (= #DestinationType "Hard")
  1948.     (exit)
  1949.     (exit #FloppyFinishedMsg)
  1950. )
  1951.